home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_145_Select.bin < prev    next >
Text File  |  1995-11-23  |  4KB  |  101 lines
  1. ItemType: WIND
  2. Rect: 94,277,569,459
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Select
  8. TextFont: Geneva
  9. TextSize: 9
  10. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue┬┬if objValue="Open" then ┬  get wsGet(wdID,"List2","Text")┬  if it ¡ empty then┬    wsSet wdID,"OK","Disabled", "false"┬  end if┬  ┬else if objValue="Close" then ┬  ┬else if objValue="Suspend" then ┬  ┬else if objValue="Resume" then ┬  ┬else if objValue="CloseBox" then ┬  ┬else if objValue="ZoomBox" then ┬  ┬else if objValue="GrowBox" then ┬  ┬else if objValue="TitleBar" then ┬  ┬end if┬┬--end windowEvent┬
  11. Params: i3_Text┬i4_Text┬i0_TopLeft┬i5_Text┬i6_Text┬i7_Disabled
  12. Result: i4_Text
  13.  
  14. ItemType: PUSH
  15. Rect: 195,60,283,80
  16. TextFont: Chicago
  17. TextSize: 12
  18. AutoSize: FALSE
  19. Disabled: TRUE
  20. Name: >> Copy >>
  21. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"List1","selectionText")┬put it into temp┬put NTFSqueezeText(temp,"A") into copyPick┬get wsGet(wdID,"List2","Text")┬put it into temp┬put NTFSqueezeText(temp,"A") into prevPick┬if prevPick=empty then -- don't compare┬  put copyPick into prevPick┬else┬  repeat with x=1 to (the number of lines in copyPick)┬    put line x of copyPick into picked┬    if TextToLineNum(picked,prevPick) = 0 then -- not there┬      put return & picked after prevPick┬    end if┬  end repeat┬end if┬if ((the number of lines of prevPick) >1) then┬  put NTFSqueezeText(prevPick,"A") into prevPick┬  -- sort prevPick┬end if┬wsSet wdID,"List2","Text",prevPick┬wsSet wdID,"List1","selectionText","" -- unhilite┬wsSet wdID,">> Copy >>","disabled","true"┬wsSet wdID,"OK","Disabled","false"┬--end mouseUp
  22.  
  23. ItemType: PUSH
  24. Rect: 195,89,283,109
  25. TextFont: Chicago
  26. TextSize: 12
  27. AutoSize: FALSE
  28. Disabled: TRUE
  29. Name: Remove
  30. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"List2","selectionText")┬put it into removePick┬get wsGet(wdID,"List2","Text")┬put it into prevPick┬repeat with x=1 to (the number of lines of removePick)┬  put line x of removePick into picked┬  put TextToLineNum(picked,prevPick) into liner┬  if liner>0 then┬    delete line liner of prevPick┬  end if┬end repeat┬wsSet wdID,"List2","selectionText","" -- unhilite┬wsSet wdID,"List2","Text",prevPick┬wsSet wdID,"Remove","disabled","true"┬wsSet wdID,"OK","Disabled","false"┬--end mouseUp
  31.  
  32. ItemType: LIST
  33. Rect: 8,33,185,178
  34. TextSize: 10
  35. Name: List1
  36. DoubleClickItem: 1
  37. KeyScroll: TRUE
  38. Text: one┬two┬three
  39. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"List1","selectionText")┬put it into thePick┬if thePick is not empty then┬  wsSet wdID,"List2","selectionText","" -- unhilite┬  wsSet wdID,">> Copy >>","disabled","false"┬  wsSet wdID,"Remove","disabled","true"┬else┬  wsSet wdID,">> Copy >>","disabled","true"┬end if┬--end mouseUp
  40.  
  41. ItemType: LIST
  42. Rect: 291,33,468,178
  43. TextSize: 10
  44. Name: List2
  45. DoubleClickItem: 2
  46. Text: 
  47. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"List2","selectionText")┬put it into thePick┬if thePick is not empty then┬ wsSet wdID,"List1","selectionText","" -- unhilite other list┬  wsSet wdID,"Remove","disabled","false"┬wsSet wdID,">> Copy >>","disabled","true"┬else┬  wsSet wdID,"Remove","disabled","true"┬end if┬--end mouseUp
  48.  
  49. ItemType: TEXT
  50. Rect: 8,17,166,29
  51. TextSize: 10
  52. AutoSize: FALSE
  53. Name: Title1
  54. TextStyle: Bold
  55. Text: Title1
  56.  
  57. ItemType: TEXT
  58. Rect: 289,17,447,29
  59. TextSize: 10
  60. AutoSize: FALSE
  61. Name: Title2
  62. TextStyle: Bold
  63. Text: Title2
  64.  
  65. ItemType: PUSH
  66. Rect: 204,155,276,175
  67. TextFont: Chicago
  68. TextSize: 12
  69. Disabled: TRUE
  70. Name: OK
  71. DefaultItem: TRUE
  72. AutoClose: TRUE
  73.  
  74. ItemType: PUSH
  75. Rect: 200,124,280,144
  76. TextFont: Chicago
  77. TextSize: 12
  78. Name: cancel
  79. AutoClose: TRUE
  80.  
  81. ItemType: LINE
  82. Rect: 213,116,267,117
  83.  
  84. ItemType: TEXT
  85. Rect: 1,0,451,15
  86. AutoSize: FALSE
  87. Name: instr
  88. Text: Shift-click or command-click to select multiple continuous or discontinuous items, respectively
  89.  
  90. ItemType: PUSH
  91. Rect: 438,17,468,31
  92. AutoSize: FALSE
  93. Name: clear
  94. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬wsSet wdID,"List2","text",""┬wsSet wdID,"OK","Disabled","false"┬--end mouseUp
  95.  
  96. ItemType: PUSH
  97. Rect: 195,33,283,50
  98. TextSize: 10
  99. AutoSize: FALSE
  100. Name: >> Copy all >>
  101. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"List1","Text")┬put it into temp┬wsSet wdID,"List2","Text",temp┬wsSet wdID,"List1","selectionText","" -- unhilite┬wsSet wdID,"OK","Disabled","false"┬--end mouseUp